1000 .IF PRG :.GOTO 1570 1010 ANZJMP =58 1020 INIT JMP PINIT ; START VON VORNE 1030 EXIT JMP (VEXIT ) ; START VON VORNE 1040 QUERY JMP (VQUERY ) ; DISK-FORMAT FESTSTELLEN 1050 MEDIACH JMP (VMEDIACH) ; DISK GEWECHSELT 1060 GETBPB JMP (VGETBPB ) ; ADR DES BPB HOLEN 1070 FLOPRW JMP (VFLOPRW ) ; PFLOPRW ; BLOCK LESEN/SCHREIBEN 1080 RWABS JMP (VRWABS ) ; BLOCKREIHE R/W UEBER LOG BLOCKNUMMER 1090 FLOPFMT JMP (VFORMAT ) ; FLOPPY FORMATIEREN 1100 SGDTA JMP (VSGDTA ) ; ADRESSE DTA-PUFFER SETZTEN/HOLEN 1110 SGDRIVE JMP (VSGDRIVE) ; DRIVE HOLEN/SETZEN 1120 GTPATH JMP (VGTPATH ) ; HOLT ADRESSE DES AKTUELLEN PFADES 1130 SGNEXCL JMP (VSGNEXCL) ; FOLGECLUSTER HOLEN/SETZEN 1140 SFRCLUS JMP (VSFRCLUS) ; NAECHSTEN FREIEN SEKTOR SUCHEN 1150 GTDSKFR JMP (VGTDSKFR) ; FREIEN PLATZ AUF DER DISKETTE BERECHNEN 1160 SFIRST JMP (VSFIRST ) ; ERSTEN EINTRAG IN DIR SUCHEN NACH DTA 1170 SFIRSO JMP (VSFIRSO ) ; FILE UMBENENNEN 1180 SNEXT JMP (VSNEXT ) ; NAECHSTEN EINTRAG 1190 CHDIR JMP (VCHDIR ) ; DIRECTORY WECHSELN 1200 NAMEDTP JMP (VNAMDTP ) ; PFAD FUER PRG SETZEN 1210 WRENTRY JMP (VWRENTRY) ; ENTRY IN DTA AUF DISK SCHREIBEN 1220 DELETE JMP (VDELETE ) ; FILE LOESCHEN 1230 DCREATE JMP (VDCREATE) ; FILE ZUM ERSTEN MAL OEFFNEN 1240 MKDIR JMP (VMKDIR ) ; DIRECTORY ANLEGEN 1250 RMDIR JMP (VRMDIR ) ; DIRECTORY LOESCHEN 1260 DOPEN JMP (VOPEN ) ; FILE OEFFNEN 1270 DCLOSE JMP (VCLOSE ) ; FILE SCHLIESSEN 1280 DREAD JMP (VREAD ) ; AUS FILE LESEN 1290 DWRITE JMP (VWRITE ) ; IN FILE SCHREIBEN 1300 LSEEK JMP (VLSEEK ) ; POSITION IN FILE BESTIMMEN 1310 VERSION JMP PVERSION ; VERSION DES BDOS HOLEN 1320 RESCHAIN JMP (VRESET ) ; 1330 IRQCHAIN JMP (VIRQ ) ; 1340 NMICHAIN JMP (VNMI ) ; 1350 SGTIME JMP (VSGTIME ) ; 1360 SGDATE JMP (VSGDATE ) ; 1370 SALARM JMP (VSALARM ) ; 1380 WRITFAT JMP (V37 ) ; 1390 READFAT JMP (V38 ) ; 1400 WRITBUF JMP (V39 ) ; 1410 READBUF JMP (V40 ) ; 1420 SFRBUF JMP (V41 ) ; 1430 RLBUF JMP (V42 ) ; 1440 BUFABS JMP (V43 ) ; 1450 BFZSET JMP (V44 ) ; 1460 BFSET JMP (V45 ) ; 1470 BFGET JMP (V46 ) ; 1480 BOUT JMP (V47 ) ; 1490 BIN JMP (V48 ) ; 1500 BCAN JMP (V49 ) ; 1510 BCAUS JMP (V50 ) ; 1520 BBCOL JMP (V51 ) ; 1530 BTCOL JMP (V52 ) ; 1540 BCPOS JMP (V53 ) ; 1550 BGKEY JMP (V54 ) ; 1551 BFETCH JMP (V55 ) ; 1552 BSTASH JMP (V56 ) ; 1553 BFADR JMP (V57 ) ; 1554 BSADR JMP (V58 ) ; 1560 .END 1570 INIT =BDOS ; START VON VORNE 1580 EXIT =BDOS+3 ; START VON VORNE 1590 QUERY =BDOS+6 ; DISK-FORMAT FESTSTELLEN 1600 MEDIACH =BDOS+9 ; DISK GEWECHSELT 1610 GETBPB =BDOS+12 ; ADR DES BPB HOLEN 1620 FLOPRW =BDOS+15 ; PFLOPRW ; BLOCK LESEN/SCHREIBEN 1630 RWABS =BDOS+18 ; BLOCKREIHE R/W UEBER LOG BLOCKNUMMER 1640 FLOPFMT =BDOS+21 ; FLOPPY FORMATIEREN 1650 SGDTA =BDOS+24 ; ADRESSE DTA-PUFFER SETZTEN/HOLEN 1660 SGDRIVE =BDOS+27 ; DRIVE HOLEN/SETZEN 1670 GTPATH =BDOS+30 ; HOLT ADRESSE DES AKTUELLEN PFADES 1680 SGNEXCL =BDOS+33 ; FOLGECLUSTER HOLEN/SETZEN 1690 SFRCLUS =BDOS+36 ; NAECHSTEN FREIEN SEKTOR SUCHEN 1700 GTDSKFR =BDOS+39 ; FREIEN PLATZ AUF DER DISKETTE BERECHNEN 1710 SFIRST =BDOS+42 ; ERSTEN EINTRAG IN DIR SUCHEN NACH DTA 1720 SFIRSO =BDOS+45 ; FILE UMBENENNEN 1730 SNEXT =BDOS+48 ; NAECHSTEN EINTRAG 1740 CHDIR =BDOS+51 ; DIRECTORY WECHSELN 1750 NAMEDTP =BDOS+54 ; PFAD FUER PRG SETZEN 1760 WRENTRY =BDOS+57 ; ENTRY IN DTA AUF DISK SCHREIBEN 1770 DELETE =BDOS+60 ; FILE LOESCHEN 1780 DCREATE =BDOS+63 ; FILE ZUM ERSTEN MAL OEFFNEN 1790 MKDIR =BDOS+66 ; DIRECTORY ANLEGEN 1800 RMDIR =BDOS+69 ; DIRECTORY LOESCHEN 1810 DOPEN =BDOS+72 ; FILE OEFFNEN 1820 DCLOSE =BDOS+75 ; FILE SCHLIESSEN 1830 DREAD =BDOS+78 ; AUS FILE LESEN 1840 DWRITE =BDOS+81 ; IN FILE SCHREIBEN 1850 LSEEK =BDOS+84 ; POSITION IN FILE BESTIMMEN 1860 VERSION =BDOS+87 ; VERSIONSBLOCK HOLEN 1870 RESCHAIN =BDOS+90 ; 1880 IRQCHAIN =BDOS+93 ; 1890 NMICHAIN =BDOS+96 ; 1900 SGTIME =BDOS+99 ; 1910 SGDATE =BDOS+102 ; 1920 SALARM =BDOS+105 ; 1930 WRITFAT =BDOS+108 1940 READFAT =BDOS+111 1950 WRITBUF =BDOS+114 1960 READBUF =BDOS+117 1970 SFRBUF =BDOS+120 1980 RLBUF =BDOS+123 1990 BUFABS =BDOS+126 2000 BFZSET =BDOS+129 2010 BFSET =BDOS+132 2020 BFGET =BDOS+135 2030 BOUT =BDOS+138 2040 BIN =BDOS+141 2050 BCAN =BDOS+144 2060 BCAUS =BDOS+147 2070 BBCOL =BDOS+150 2080 BTCOL =BDOS+153 2090 BCPOS =BDOS+156 2100 BGKEY =BDOS+159 2110 BFETCH =BDOS+162 2120 BSTASH =BDOS+165 2130 BFADR =BDOS+168 2140 BSADR =BDOS+171